Shareware Grab Bag/Shareware Grab Bag.iso/090/wheels1.arc/KAVAIL.LIB

Text File | 1985-06-28 | 467 b | 14 lines

{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.

     This function returns the available memory in Kilobytes.}

function K_available:integer;
begin
  if MemAvail > 0 then
    K_available := trunc(MemAvail*16./1024)
  else
    K_available := trunc((65536.+MemAvail)*16./1024);
end;